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Ll. INTRODUCTION 


Ramjets operate with much higher specific impulse than 
rockets since ramjets use inlet air as a source of oxygen. 
Self-sufficient rockets, on the other hand, must carry their 
own oxidizer and bear the consequent penalty. ACG@Gondame lhy- 
although rockets must be chosen for propulsion outside of 
the atmosphere, and solid propellent rockets are 
unchallenged for short- range tactical applications, ramjets 
can generally outperform rockets in the medium and long 
range tactical environments. 


Because the ramjet depends only on its forward motion at 


Supersonic speeds to effectively compress intake air, the 
engine, in principle, can employ very few, if any, moving 
parts. It is therefore capable of simplicity feementimess on 


construction, and high flight speed not poss tote seine ote. 
alr-breathing engines. These features, plus the high thermal 
efficiency it can achieve, make the ramjet a particulary 
attractive choice for propelling vehicles at supersonic 
Speeds. 

One of the significant difference between rockets and 
ramjets is thrust at zero speed. Rockets can deliver thrust 
at any speed, whereas a ramjet requires an auxilary boost 
system to accelerate it to its Supersonic operating regime 
so that its forward motion can Compress Ehe Im feta ele 
operate at practical efficiency a ramjet must be moving at 
about a Mach number of 1.5 or greater so that the margin of 
thrust over draep will be satiastaeton = 

The solid fuel ramjet(SFRJ) employs solid fuel for the 
combus tem walls: Its distinguishing feature is the absence 
of fuel tankage, fuel delivery, and fuel control systems. 
The solid fuel ramjet offers this simplgerty wnt le prov sane 


excellent density impulse and combustion efficiency. 
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Fig 1.1 shows a Schematic 6£ ad SFRI)) combuszon One 
inherent problem with the SFRJ 1s the dependence of fuel 
regression on the air mass flux through the fuel grain. The 


fuel regression rate generally behaves according to 





. Xx 
re « (A f (tair,P) Giese 
where r = fuel regression rate 
Mair = air flow rate 
Ap = port area 
E( Tair, P jaa weaker function of inlet air 


temperature and pressure 


xXx is between .3 and .6 


If the air flow rate increases or decreases, then the 
fuel flow rate varies in the correct direction, Jogbhe sgn 
enough to maintain design fuel-air ratio. his ear 


Significantly affect prepulse ouase- 

The range of application and the performance of the SFRJ 
could be significantly improved if fuel regression rate 
could be controlled in some manner. Perhaps the most 
obvious method for fuel regression rate control is to use 
variable bypass air flow. 

Bypass designs are often desired in order to increase 
fuel loading, and can also improve combustion efficiency. A 


valve in the bypass line could be used to vary the bypass 


tratior thus producing Changes in the fue) eiew Frace 
according to equation 1.28 (@s@iwec onl, ene tic mee pone 
mass flux affects the regression rate). However, combustion 


efficiency may vary significantly with the amount of bypass 
alr anda control valve muse be UWseqtin tne  intecemoe. 


ducting. In addition,  flowseeupli nomen | lead tomugdecmeaed 


i 


coermilatlonsmephmeretore, other fuel regresSion rate control 
techniques should be persued. 

One possible alternative technique is the use of 
vammmole Swirl at the air inlet. Increased swirl may 


increase the regression rate. This technique would require a 


vane control device. Another possibility is the use of 
secondary injection of air, oxygen or gaseous fuel into one 
Gmmnmore boeations within the combustor. This may lead to 
both increased fuel regression rate and COMmpust aon 
SmEerelency . If oxygen were used it would require an 
auxillary supply system. Therefore, it would be a practical 
Beceotpbility (te maintain simplicity) oT a one-time 
augmentation in thrust(at take-over from booster, at 


terminal maneuver, etc). 
In this investigation tests were conducted to examine 
the effects of secondary gaseous injection and inlet air 


Swirl on regression rate and combustion efficiency. 


A new ramjet thrust stand was installed ‘in ae ae 
combustion laboratory and required Cali baat on and 
CEGrb li leat nonmmmemmeceGONnd “eart of this investigation was to 


conduct tests using high temperature inlet air and then to 
ensure that combustion efficiencies based on thrust and 


based on measured chamber pressure were in agreement. 


5 


II. METHOD OF INVESTIGATION 


A. TEST CONDITITIONS ANDRAS TiODs 


The experimental investigation was begun by selecting 
several configurations for regression rate control through 
the utilization of secondary injection. It was decided to 
examine secondary injection at three locations through the 
fuel grain wall: in the recirculation zone(flame holder 
area), just downstream of flow reattachment and further 
downstream within the region of the developing boundary 
layer (in which is located a turbulent diffusion flame). In 
addition, gaseous injection on the inlet step face and inlet 
alr swirl were examined. 

Polymethylmethacrylate(PMM) was used as the fuel and had 
a nominal length of 12 inches and an internal diameter of 
1.5 inches. A sudden expansion inlet was used which provided 
an inlet step height of 0.49 inches. 

Flow reattachment normally occurs between 7 and 8 step 
heights(i.e, 3.5 - 4 inches). Thus the three injection 
locatiom chosen where 2, 5, and 8 inches from the head 
end(See Figure 2.1). 

The injection ring was designed to provide radial 
injection through eight equally spaced, 0.0625 ~ Pmehes 
diameter holes(See Figure 2.2 and Figure 2.3). 

Gaseous injection was also used through the inlet step 
face as shown in Figure 2.4 and Figure 2.5. 

Swirl was provided to the inlet air flow through the use 
of a swirl element inlet injector(Figure 2.6). 

Initial screening tests of short duration were made in 
which no injection or swirl was used, followed by tests with 


various amounts of gaseous injection or swirl. Those 
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Seema ilenpc Loumamto Slonificantly affect chamber pressure(or 
thrust) were further evaluated using full-length burn times 
of approximately 30 seconds (in order Bomeeae curately 


determine regression rate and combustion efficiency). 


Be DATARS COLEREGI@ON METHOD 


The data collected during the regression rate control 
becuse CoMoaboreamolmmita tloW rates, oxygen, air or fuel flow 
rates form tEhe “injection, motor head-end and chamber 
pressures, weight changes of the fuel grain, pre-ignition 
alr ftlowetime, ignition time, burning time, purge time, 
thrust and ignition gas flow rate. All pressures’ and the 


thrust were recorded both digitally and analog. 





Prcire= 2 . il Poel Comitiguratiomssfor Side Wall Injection. 
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Figure 2 
Figure 2.4 
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Figure 2.6 Seoieelementeinlet Injector. 


Temperatures were only recorded digitally. Average 
values of the thrust and chamber pressure were determined 
using a compensating polar planimeter on the analog record. 

The mass flow rate of air was obtained by using 
Sonically choked nozzles. Average fuel mass flow rate was 


calculated by using the weight loss during the burn time 


a WwW 
a (2s) 


® 
Mf = 
where ~aw.-= weight change during the run 
tb= burn time 
The average internal diameter of the fuel grain was 


measured prior to the run. The final average diameter was 


determined based on weight loss and fuel length by using 


Le 


ae ee, _ = 
[eee om 


where AW = weight change 


L = length of thewenet e745 
9 = density of the fuel grain 
Di = average intial port diameter of the 


PMM graim 


The average fuel regression rate was then computed using 


. comes 
Ea = eee (239) 
$ 2 tb 
The mixture ratio, chamber pressure and motor air inlet 


temperature were used aS input into the Naval Weapons 
Center(NWC) Chama Lake, Gaiew. Propellant Evaluation 
Program(PEPCODE) computer program to obtain the theoretical 
adiabatic combustion temperature and the combustion gas 
properties( _ and R). This temperature was used to calculate 
temperature rise combustion efficiencies based on thrust and 


based on nozzle stagnation pressure, where 


7 = _Ttep — Ta (2.4) 
at Tt th ~ alia 
and Thexp = combustor stagnation temperature 
They = theoretical combustor temperature 


Ta inlet air temperature 


Experimental values of combustor stagnation temperatures 


were calculated in two ways, one based on pressure and one 
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massed on thrust. The one dimensional continuity equation 
(m= Ban) can be expressed in terms of the chamber 


Stagnation properties for a choked converging nozzle 





m = ta Athet+ (2.5) 
| R Tt 
where my were tlow scate 
mew FC, chamber pressure(for low Mach 
number) 


Atherre effective nozzle throat area 


Re —- eas Constant 


Mae Chardetermsere Exhaust velocity; c* is defined as 


c* - Ke Ath Ge - ae acy 


where Cr = thrust coefficient 


For a sonically choked exhaust nozzle, 


G27) 





Using pre-test air flow through the motor, equations 
(2.6)and (2.7) can be used to determine the effective 


exhaust nozzle throat diameter(Dtheff) 


Zl 





ae : 
“Soir Gia (208 ) 





DU nese 
TT 
Pea a qe 
Then temperature-rise comustion efficiency based on 


nozzle stagnation pressure Can be vecateulated Wanemc) 


x 2. _ ¥ 2 
Cx 


Gare Cn 
oy x 2 x 2 (2.9) 
C th a QO 
where Ca = characteritic exhaust velocity for aa 


flow before ignition 
& . 
Cexp = experimental characteristic exhaust 
velocity based on Pc, the average combustion pressure 
Car is obtained Erom equation 27) using Y ; 
R and Tt from PEPCODE with imputs of Pe, Ta. ma mg , Mo, and 
MOHg The latter two flow rates are used in the vitiated 


air he aieer- 


The thrust equation 1S 
F = Mt Ue + (Pe - Po) Ae (2. LOR 


where mt=m.+ mp+ mo+ MOHa 


A thrustecoctirerent. Ce, can be defined such that 


F =p Pe Ath (2 saw 


Fe-R ) Ae Oe, 
P. Ath 





Wiese PC “= "exXitmpressure of the nozzle 
P = ambient pressure. Then for a choked 


converging nozzle, this equation can be simplified to 


X 
Me tes 
ep = Qn 3) 





where R and Y are @letermined@us ing® PHPCODE 


Then efficiency based on thrust is calculated from 


Z xf 
x 
C ex _ Ca 


cn GC 
? _ . . 
where Cexp = F go / (Mz Cr exp ) 
CA = F / (Mog Ce) (determined before 


eae On ) 
F = average thrust from analog 


record 


ll 


Mp4 = pre-ignition flow rate 
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ILL. DESCRIPTION OF APPARATUS 


A. RAMJET MOTOR 


The ramjet motor assembly used in this experiments was 
that used previously at Nes  |Ref = eee 


Figure 3.1 shows a schematic drawing of the ramjet, 


illustrating the main Sections. These are, the head-end 
assembly, Step insert section, fuel grain, aft mixing 
chamber and exhaust nozzle. For the tests with secondary 


injection, the 2njectionm rineerwas  iceae 

The head-end assemly contains a central opening for the 
introduction of the primary air-flow, and -ports “fom 
introduction of the ignition) fuel and the enmepenweeon ch 

The fuel wall injection is shown in Figure 2.1, Figure 
2.2 and’ Figure | 225" Injection velocity varied between 
approximately 30 and 200 ft/sec as the injection mass flow 


rate was increased from 14 to 5 4 @E the inletwan: floc 


nominal one dimensional flow port velocity was approximately 
300M ty sece 

For the face injection tests, air, oxygen or gaseous 
fuel was introduced using a differently designed step 
insert (Pigure 274 and) Ficunes2 90 The imjeetion was 
provided through eight equally spaced, 0.047 diameter holes. 
For an injection gas mass flow rate equal to 1% of the 
inlet air flow rate the injection velocity was approximately 
65 feisece 

To provide a sWirl at theme ler. a specially 
designed insert was used(Figure 2.6). This device was a 
tube-in-hole type injector. Approximately S390 0oreenceai 
flow passed through the outer annulus to maintain the 


recirculation region/flame holder. The other 57 % of the air 


Dey 


flow was passed through a central swirl element which 
Sareemaea OUl5,amches aimto the combustor. the swirl was 
mameed by machiming Six Flutes with a twist of one turn in 
five inches. The latter resulted in an inlet swirl angle of 
approximately 5 degrees to the motor centerline. 

During the normal ignition sequence, the air flow rate 
was set at the desired value before the ignition switch was 
activated. When the ignition circuit was activated, ethylene 
eas was introduced upstream of the fuel grain along with 
EPaimaty alr flow. Liisa! <Eure was ignited with an 
oxygen-ethylene torch which issued from the face of the step 
inlet. Normally, two to three seconds of ignition time was 
meonired for PMM combustion to sustain. 

The step insert section was provisioned for variations 
in inlet diameters to make the sudden expansion. The fuel 
erain itself, when mounted in the motor, became the mid-body 
Seaenes camjet. The fueW@erain (and injectiom ring, if used) 


mounted between the head-end assembly and the aft mixing 


chamber. The aft-mixing chamber had a length-to-diameter 
Pocdemor 2.9. The entire motor was held together by four 
Enmerded rods and nuts. The ramjet motor was then mounted 


Same nmemenrust Stand. 


Dem eALR SUPE SYSTEM 


A schematic of the ramjet air supply system is shown in 
fipwre 3.2. From the air tanks, the air flows through a 
pruegemmc Tesulatonr, ansonilc choke, a vitiated. air heater and 
finally to the head-end assembly. The air flow can be 
either vented into the atmosphere or vented through the 
ramjet motor by the control of two pneumatically operated 
valves. Two flexible air flow lines were used to connect 
the main air line to the air heater. The latter was mounted 


Gieeeie MEhGust est and. 
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C. AIR HEATER 


To simulate actual “flieht”  coneieion. air should be 
heated to the appropriate stagnation temperature. In this 
investigation ethylene gas used in the air heater. The 


oxygen in the air which is consumed during the heating must 
be replaced before injection into the ramjet cumbustor. 
Figure 3.2 shows a schematic diagram of the air heater. The 
air heater and the ramjet motor assembly were mounted 


together on the thrust stand. 


D. DATA ACQUSITION AND CONTROL SYSTEM 


The primary instrumentation used in this investigation 
consisted of various individual pressure transducers’ and 
thermocouples and a strain gage load cell for the thrust 
measurement. All transducer outputs were recorded both with 
a Honeywell 1508 Visicorder and HP-9836S computer using a 
HP-3054A AUTOMATIC DATA AQUISIU@@N, GONTROL SYSTEM A tCinime 
reference Signal was provided to the analog record by 


feeding a 10 Hz signal from a laboratory signal generator to 


the timing channel of the Visicorder. During the test, the 
HP=9S 360 computer system was used to record the 
temperatures, and thrust, and calculate the flow rates of 


the ignition gas, purge gas, air heater ethylene and oxygen, 
alr and secondary injection gas. It was necessary to record 
the PMM fuel grain weight and inner diameter before and 
after each run. The fuel grain weight was measured uSing a 
balance. All thermocouples used were chromel vs’ alumel 
(type K) with electronic ice points. 

The computer was used to both control the test sequence 
and to provide data aquisition during the experiment. Figure 
3.3 ais a block diagram of the computer program. (See 
Appendix A. for a complete listing). Da Gare Sait 10 mee ort 


all fourteen channels were recorded every 0.5 seconds. 
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| Variable definitions and nomenclature | 


— ee eee ee 


meme le 


Transducer calibrations 

main air sonic choke pressure 
chamber pressure 
motor head pressure , 

air heater fuel sonic choke pressure 
oxygen make-up sonic choke pressure 
ignition fuel sonic choke pressure 
pee gas sonic choke pressure 

hrust transducer 


emer i i 


— meme eee ies eee eee ss es ee eee eee eS 


test number, date 

fuel Th: 

fuel dimensions and weight 

air heater fuel type 

WINES Liniewee cligt—jeoaq 

Levine wom delay time 

Penistone 

buring time 

Puree. Elme a: 
Sonic choke diameters, discharge coefficients!) 
gas contants and desired flow rates 


—_— — oe eee eee ae Se 


jee meme eee 


Flow rates set-up 
Mal eaters 

heater fuel 
make-up oxygen 
Leni omen we 
purge gas 


mee meme ii a ee es ea Ss ee ee es el 


—_ eee ee el 


Test and data collection 
pressures and temperature in voltages 


— meme ee ee 


—_ eee eee eee se ss OO eS SP el 


Data extraction 
pressures, temperatures and flow rates 


meme ees ee se ee ee se el 
meme meee i i ese Se ees ee ee ee eee 


— eee eee ee ese ese as es eS Se 


Figure 3.3 Block Diagram of the Computer 
Data AqQuLSLE1Omy Commeodes Program. 
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IV. EXPERIMENTAL PROCEDURES AND Vie CONDE EEG. 


mm eee 


A. TRANSDUCER CALIBRA TTL 


A dead-weight tester was. used for the calibration of all 
pressure transducers. Initially all transdusers were checked 


for linearity and the Visicorder(analog) display positions 


were labeled. For the computer data aquisition, voltages 
corresponding to atmospheric pressure and the maximum 
pressure were measured. From these readings a calibration 


constant (K) was determined for each transducer. 


x = —Vemax= Vee (4.1) 
Pmax 


where Vpmax = voltage reading at the applied 


maximum pressure 


VPo = voltage reading at atmospheric 
pressure 
Pmax = maximum applied pressure 
The thrust transducer was calibrated in-place ‘by 


appliying known weights to the transducer through a pulley 
system attached to the thrust stand. 


B. FLOW SRATES SET-UP 


By use of the computer, the gas” £leveratesweould penser ap 
before the hot firing. These were determined from short 


duration flows using the equation 
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a. Tease 
M = Gi Km ae Cheke (42) 
J Vt 
where km = constant (a function of R and | ) 
Cd 
Pt 


Demoke = Sonac choke diameter 


discharge coefficient 


total pressure of the gas flow 
Tt = total temperature of the gas flow 


fm bro! SEQUENCE 
Pee hnnusS trot anGeme. |) 1 brat ion 


The thrust stand was calibrated to determine’ the 
difference between the measured thrust and the actual or 
Baegretical thrust. The measured thrust can be in error 
primarily due to the variation in flex-line stiffness with 
changing pressure levels. The process was begun by 
dead-weight calibration of the load cell. Cold air was then 
Po vecameunirOUrhethewemetor with a choked exhaust nozzle. 
Measured thrust was recorded and compared to the theoretical 
Chruomeethe Marter was calculated using Equations (2.11) and 
(2.13). This was repeated for increasing air flow rates and 
BOmmeEnree Grinerent exhaust nozzle throat diameter. An 
additional test was made using hot air (1200°R) and a 12 
Penvecelonp miners fuel praim. This test was conducted in 
order to compare the temperature rise combustion efficiency 


determined by using chamber pressure and by using thrust. 
2. Fuel-wall Injection Tests 


For the fuel-wall injection tests, three injection 
location were used as discussed above. Baem test lasted for 


approximately six seconds, three seconds without injection 


el! 


and three seconds with iInjece. one Air injection Mass £ low. 
of 2, 5 and 7 percent of the main air flow rate were uSed. 
For oxygen injection, 1.5, 2 and 5 percent were used. Those 
conditions which reSulted inthe greatest increases in 
chamber pressure/thrust were repeated with full duration(30 


sec) tests. 
3. -Face Injection Tests 


im these experiments a twelve inches long 
cylindrically perforated PMM fuel grain was used. Air 
injection flow rates of 2, 5 and /7 percent of the main air 
Flow rate were examined. For Oxyeeneinject tor eee? ecm 
percent were used. Ethylene was also used with 0.5, 1.25 and 
2.5 percent. Testing methods were identical to those 


discussed above for fuel-wall injection. 
4, “Inlet/Aig@eSuan) Lesies 


Several inlets were initially tried which induced 
Swirl to the entire inlet air flow. Swirling the entire flow 
apparently distroys the flameholding recirculation zone, and 
resulted in no ignition. The tube-in-hole injector discussed 


above was then tested using a twelve inch PMM fuel grain. 


SZ 
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Summaries of the experimental results obtained during 
the initial Screening tests are presented in Table 1 and 
Table 2 for fuel-wall and inlet Step-face injection 
respectively. Results from the subsequent full duration 


tests are presented in Table 3. 


a. FUEL WALL INJECTION 


mmcditc —ouesemeodmim Lables Shows that air injected 
through the fuel grain surface was generally detrimental to 
combustion. Air injection rates up to approximately 7 “4 of 
E@emwelnlet alr flow rate had little if any effects on 
combustion pressure when introduced downstream of flow 
reattachment. Small amounts of air injected into the 
recirculation zone appeared to provide small improvements. 
inemiimyected 2airwwas quite cold (approximately 500°R) and 
therefore could have had a quenching effect on the boundary 
layer combustion. Use of “in-flight” high air should be 
examined in the future. 

Unheated oxygen injection resulted ETS] PHIeeeant 
increases in combustion presSure, especially when introduced 
into the recirculation zone in small amounts. Based on these 
Screening test results two additional tests were conducted 
with test times of approximately 30 seconds. These tests 
were made to examine the effects of 1% oxygen injection 
iitomEene neclreuglatilon region. 

In these tests, a total grain length of fourteen inches 
was used; two inches of PMM , then the injection ring and 
then twelve inches of PMM. One test(Table 3, no. 30) was 


made without injection and one with (Table 3, no.29). 
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Oxygen injection resulted in approximate liguea | 5S ae 
increase in in fuel regression rate (when adjusted for the 
different air flowrate) but a décreagemers, | 4 tomeomsuctien 
ef imedency. The recirculation zone is generally fuel rich. 
Thus, oxygen injection should increase the ‘“flame-holder” 
temperature. This was evident during the test from increased 
flame luminosity. | 

It is not clear at this point g2hy the compmction 
efficiency decreased or, for that matter, why the precence 
of the ring alone increased combustion efficiency. The 
oxygen injection velocity was approximately 30 ft/sec which 
is less than 30 4 of typical reéirculation zonewemear-uau 
velocities. However, the injected oxygen may have penetrated 
the shear layer. 

Further testing would be benificial, especially using 
HTPB, but at this point it does not appear Viharweuce e721 
injection of small amounts of air or oxygen is a viable 
method for providing fuel mass flowrate comerol sine 
combustion efficiency was decreased Significantly and the 


increase in regression rate was small. 


B. INULET STEP PAGE INI GRich 


The data from the Screening tests with step-face 
injection are presented in Table 2. Unheated air had no 
Significant effect on combustion pressure. Oxygen injection 


resulted in increased flame luminosity in the recirculation 
zone but apparently did not significantly affect downstream 
combustion (even though the overall equivalence ratio was 
approximately 0.7). Injection of ethylene resulted in 
Significant increases in combustion pressure. 

A full duration test (Table 3, no. 28) was conducted 
using l 4% of ethylene with an “njection veloantyuec: 


approximately 65 ft/sec. Comparison of the results with 
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BaeeenmtOr no dimjection (lable 3, no. 27) showed that only a 
small increase occurred in fuel regression rate. 

Some of the ethylene apparently escaped the 
fmeetoculatiomeresi10n and burmed downstream in the central 
epeeOor if} the aft mixing region, resulting in little effect 


on regression rate. 


C. INLET AIR SWIRL 


Only Sone srecuewac conducted WSing inlet air swirl (Table 


cee. 31). Approximately 43 Z of the air was injected 
axially to maintain the recirculation zone flame holding 
ability. This could be reducéd to perhaps only 10 - 20 @, 
resulting in more air with swirl. The amount of swirl was 


also intentionally kept small (5 degrees from the axial 
direction) to determine if regression rate was sensitive to 
the swirl. 

The small amount of swirl increased the fuel regression 
wobempy 15 %. This resulted in an increase in equivalence 
moeiemiatio ftroms0.69 to 0./79 . Some mw neh=UndLfrormity In 
regression rate was also evident. 

iiese itttrale fesults iIndieate that fuel regression rate 
tomate Senctiives Lo inlet air swirl. Further testing 1s 
necessary using varying amounts of swirl, but the technique 


Sppeats Viable for in-tlight fuel mass flow modulation. 


D. THRUST STAND CALIBRATION 


the rest@iltsc from the cold-flow tests for comparison of 
measured and calculated thrust are in Figure 5.1. Excellent 
agreement was attained. A least-square fit of the data 
resulted in the following equation for relating measured 


EnaEuSst to time actual’ thrust 


an = sorao x Fm + 0.4 | Gone) 
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where Fa = ~ actual thins =. based on Pe and 

throat diameter 

Fm = measured thrust 

A test was then coducted (Table 3no0. 32) ime 
fuel was used with an inlet air temperature of approximately 
ZAC Ome ie This test was made in order to compare the 
combustion efficiencies based on chamber pressure and based 
on thrust. The two efficiencies were —within 5 ee eee 
value based on Pe being greater. This difference is not 
large when it is realized that small errors in determining F 
and Pe from the analog traces are squared when calculating C 


for the efficiency based on thrust determination. 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


Addi tronaie best. using fuel-wall and step faee 
injection of oxygen, gaseous fuel and/or heated air should 
be conducted to verify the initial results founds tints 
investigation. However, the initial data hacen eh ies 
investigation indicates that gaseous injection is not a 
viable tecnique for fuel regression rate control. 

Fuel regression rate was found to be quite Sensitive to 
small amounts of inlet air Swirl without large changes in 


combustion efficiency. Additional testing is recommended. 
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APPENDIX A 


COMPUTER PROGRAM FOR EXPERIMENT CONTROL AND DATA REDUCTION 


ISFRITEST 


ISOLID FUEL RAMJET DATA ACQUISITION a DATA REDUCTION PROGRAM, 
ITHIS PROGRAM IS DIVIDED INT rive RTS: 


l 
| 
l 
| 


(1) VARTABLE DEFINITIONS 


AND VOAENCLATURE 


(2) TRANSDUCER CALTBRAT IONS 

(3) PRE-RUN INPUTS FLOW SET-UPS 

(4) THE TEST SEGUENCE AND DATA COLLECTION 

(3) POST-8UN OPERATIONS 

17 ASEH RETO EE gad 
'(1) VARTABLE DEFINITIONS AND NOMENCLATURE 

EERE EEE AE HE EERE IEEE EESTI gE Te 


SYMBOL 
4 


Cdair 
Cdhf 
Cdho 
Cdif 

Cdo 

Cf 
Cstarth 
Gotaralr 
Dairchoke 
Dates 
Dhfchoke 
Dhocnoke 


Di 
Difchoke 
D 


D 
Dochoxe 
Dth 
Dtherf 
E 


Fuelid$ 


Heaterfuel$ 
Tanitionfuel$ 
Keair 

Kant 

Kaho 

Keait 

Kao 

Lp 

Mair 

Maird 

MhF 

4hfd 


Puraeqas$ 
Ta 
Testno$ 
Th 


Tho 
Ti 

Tid 
le 


DEFINITION 

ANALOG CHANNEL NUMBER 

DISCHARGE COEFFICIENT, AIR SONIC CHOKE 
DISCHARGE COEFFICIENT, HEATER FUEL SONIC CHOX 
DISCHARGE CGSEFICIENT, OXYGEN MAKE-UP SONIC CHOKE 
DISCHARGE COEFFICIENT, IGNITION FUEL SONIC CHOKE 
DISCHARGE COEFFICIENT, PURCE GAS SONIC CHOKE 
THRUST COEFFICIENT 

THEORETICAL CX, FT/SEC 

Cx FOR AIR FLOW BASED CN Dtheff 

AIR SCMIC CHOKE DIAMETER 

Test Date Mo-Dav-ir 

AIR HEATER FUEL SONIC CHOKE DIAMETER 

OXYCEN MAKE-UP SONIC CHOKE DIAMETER 

MOTOR INLET DIAMETER, IN. 

IGNITION FUEL SONIC CHOKE DIAMETER 

MOTOR FUEL PORT DIAMETER IY, 

PURGE GAS SONIC CHOKE DIAMETER 

MOTOR EXHAUST NOZZLE THROAT DIAMETER, IN. 
EFFECTIVE THROAT DIAMETER, IN, 

THRUST 

FUEL IDENTIFICATION 

CRAVITATIGNAL CONSTANT (32,174) 

FUEL IDENTIFICATION 

SERJ IGNITION FUEL 1.9 

AIR SONIC CHOKE FLOW RATE CONSTANT 

HEATER FUEL SONIC CHCKE FLOW ATE CONSTANT 
OXYCEN MAKE-UP SONIC CHOKE FLOY RATE CONSTANT 
IGNITION FUEL SONIC CHOKE SCY RATE CONSTANT 
PURGE GAS SONIC CHOKE FLOW RATE CONSTANT 
FUEL SRAIN LEHCTH, IN, 

AIR FLOW RATE, LOM/SEC 

DESIRED AIR FLOW RATE, Lbm/sec 

HEATER FUEL FLOW RATE, Lbm/sec 

DESIRED HEATER FUEL FLOY RATE Lbn/sec 

HEATER OXYGEN SLOW 2ATE, Lha/sec 

DESIRED HEATER OXYGEN FLOW RATE, Lbm/sec 
IGNITION FUEL FLOW RATE, Lhm/sec 

DESIRED IGNITION FUEL SLOW RATE, Lba/sec 
PURGE GAS FLOW 2ATE, Lbse/sec 

DESIRED PURGE GAS FLCU SATE, Lbn/sec 
PRESSURE. AIR SONIC CHOKE, Boia 

BAROMETRIC SRESSURE, Psa 

PRESSURE, CHAMBER, Psig 

PRESSURE, MOTGR HEAD-EHD. Psia 

PRESSURE, HEATER FUEL SONIC CHOKE. Psia 
PRESSURE, HEATER OXYGEN SONIC CHOKE, Psia 
PRESSURE, IGNITION FUEL SONIC CHOKE, Psia 
PRESSURE, PURGE SAS SCNIC CHOKE, Psia 

PURGE GAS 1.D 

TEXPERATURE, AIR SONIC CHOKE, R 

TEST 1.3 NO. 

TEMPERATURE, HEATER FUEL SONIC CHOKE, | 
TEMPERATURE, OXXYGEH MAKE-UP SCNIC CHOKE, R 
TEMPERATURE. MOTOR AIR INLET, 

TEMPERATURE, DESIRED MOTCR AIR INLET, 
TEKPERATURE, IGNITION FUEL SONIC CHOKE, 2 
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699 | Tha TIME BETWEEN SFRJ AIR FLOW AND IGNITION, sec 
700 2! Tab RURN TIHE AFTER Tar, sec 

7101 Tai IGNITION DURATION AFTER Tana, sec 

720 =! Tro PIIRGE DURATION AFTER Teb, sac 

730 «1 «Tp TEMPERATURE, PURSE GAS SONIC CHOKE, R 

740) 1 Wtfi INITIAL FUEL GRAIN WEIGHT, Lbn 

750 | 

760 

770 KEEP 1000,.1 


780 PRINT USING "@° 

790) =PRINT USING "S/" 

800 PRINT * 1.2 Volts MAXIMUM into Acquisition Systeslit" 
819 | THE RECORDED VARIABLES (VOLTACES) AND LOCATIONS ARE: 

B20 =| (NOTE: THE MAXIMUM ALLOWABLE VOLTAGE INTO THE SYSTEM IS 1.2 VOLTS) 


830 0} 
git VERTABLE 3497 DACU SCANNER NUMBER O | 
968 | Pg . Cl el 
870 «836! Pe 0 
Cou een | 
890 ~=—s!«~Phf 3 
900 | Pho 4 
G0 eae 6 
Cele nt 7 
oly J 
940 | Ta 9 
ost) Tht 19 
56 1 The 11 
97006! hoi 8 
9e5 1 Tif le 
990 «=6 | ‘Tp 3 
1900! 
Wit! 


1029 TALL FLOW RATES ARE CALCULATED USING THE ONE-DIFENS LOMAL | ISENTROPIC 
1939 'FLOM EXPRESSIONS WITH FIXED PROPERTIES. SMALL SCiMTC NOZZLES HAVE 
1040) URFASURED DISCHARCE COFFFICIENTS. THE ATR FLOW NGZZLE USES AN ASSUMED 
1053 DISCHARGE CORB LUD eM imnCiGn RUE SU a. 


070 r (LEM/SEC) -CdxP xAxKM/T*.S 


7 IK 1S THE GAS-REPENDENT SONIC CHOKE FLOW RATE CONSTANT 

140 IKm=SOR ((Gamma#Gc/R)*(2/(Gammat))*((Gammatt)/(Ganma~1))) 

120! 

1130 | APPPOPRIATE CONSTANTS ARE: 

1140 | 

U150 | GAS MOLECULAR WT. GAS CONST. cP CAMMA Kn 

160 | 

1170 | ATR 29.0 53,3 24) 1.40 5220 
1160 1 G2 32,9 §3,3 217 1,43 5589 
1190 | CHA 16.03 95.4 593 1.32 397 
1200 | C2H4 28,03 55.1 400 1.22 4985 
2g ! ARGON 37.9 39.7 124 1.87 £625 
1230 ALL THERMOCOUPLES USED ARE CHROMEL vs ALUMFL (TYPE K) WITH 

1240 IELECTRGNIC ICE POINTS, TEMPERATURE READINGS (VGLTAGES) ARE 


40 ICGHVERTED TO DEGREES RANKINE (R) PER “INGUSTRIAL INSTRUMENTATIGN" BY 
1260 'D.P, ECKMAN (PAGE 359). TRIS CALCU ATION 1S PERFORMED TN SURROUTINE 
ae ncaaeen VGLTAGE INTERVALS ARE USED BETWEEN 460 AND 1450 R. 

eeu Gca=se un: 


1290 Ke=9 1 POST RUN CONTROL FLAG 

1390 COTO Transcal 

1310 Teale: | 

heel IF Volts¢. 00153 THEN T=((Volts+.00058)/.0000220)+450 4 

eee IF Volts)=.00153 AND Volts<.003a2 THEN T=((Volts-.08153)/, 000323 
+5 

Dee IF Volts)=.00382 AND Voltst. 00809 THEN T=((Volts-.00282)/.000022 

b 
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lk If Y-tes)=,09607 AND Volts( 00831 THEN T=((Volts-.00607)/.990022 

2\+7+ 

[red TF Mettst=, 00831 AND Volts¢(.91056 THEN T=((Volts-.99821)/. 000022 

£1408 

a ; TF Valtss=, 01035 AND Volts(. 08295 THEN T=((Volts-.01096)/,090022 
+552 

ee IF Yaltsd=.01285 AND Volts(.O4519 THEN T=((Volts-.01295)/, 009023 
yely 

nica IF Vsltsd=.01518 AND Volts¢.81752 THEN T=((Yolts-.01518)/, 090023 
+ : 

Re iF Voltsd=,01752 AND Volts<. 01988 THEN T=((Volts-,01752)/. 000023 
+]?! 

Ne IF Voltsd=.01989 AND Volts(.82225 THEN T=((Wolts-.01998)/. 000023 

yeas 

1420 IF Valts).02225 THEN GOTO Tochigh 

1439 RETURN 

1440 Teonigh: | 

1420 oan My TERPSRATURE Celern aad Rh: 

1449 PRIN 

1479 ae 

142 gee cd). | 

147% eo ee 

150e oe ee 0b. 

1510 etaib 

fee li tescal: | 

1536 Le es CG 8 © ERE ES KEE RRR EERE EEE EEN EKER EEE EK EEE 

1o40) ''2) TR? S: CE? CALIBRATIONS 

155¢ ae neat. SSR RA REEL E ERLE EERE REE LEE PPE ELK RRR FREE NEL RE EL EEF 

JES 'TRERE APE S PRESSRE TRANSDUCERS AND ONE LOAD CELL FOR TH®UST WHICH 

faye) ‘Fuel FE CALBPARIED. TRANSDUCER LINEARITY HUST EE VERIFIED BEFORE THIS 

1580 ‘CSL TERATICS FROCEDURE 1S EMPLOYED. THE ORDER OF CALIBRATION IS AS 

Poe ‘Farr uee: Fa, Pe, Ph, Pat, Pho pif, Rone 

t600 MIHE FOLLOWIAG TWO LINES SET UP 722 AND 709 FOR DATA ACQUISITION" 

1610 CLEAR 709 | CLEAR 34974 DATA AGUISITICGN/CONTROL UNIT 

1620 CLEAR 722 | CLEAR 34544 BIGTTAL VOLIMETER 

1636 RESDTE 709 1 RAKE 34578 UNTT TO REMOTE HOHE 

ES pCTPUT 722; “LIRSESTAZLOSTITAQKI 10 READING PER TRICGER AND STORE 
el Pagal: | 

165 VEER ALY MEK EERE CERES RE ENE MEME ER RELA EMLEESKRE EKER LY LRA E RY AAA KER KERRY 

fee Pome) €* CCL TERAT ION OF Pa, TRE AIR SONIC CHOKE PRESSURE TRANSDUCER” 

POOD | ERK RAKE KARL E RESELL ELE EEE ELSE KEENAN SEEKER ELLA EERE EEK 

1690 Fatcal: | 

1700 FRINT * kext## ZERO PRESSURE 44xn¥’ 

1710 PRINT "INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER’ 

1720 PISP "HIT CONTINUE WHEN READY TO TAKE ZERO READING’ 

[Hea Pace 

1740) REnGit 709 

Pestecetr iy 799;"AC2" | ASUIRE CHANNEL 2 

1760) «sAIT 2 

1770 CUTFUT wees TS! | INITATE SINGLE TRIGGER 

1790 Pals i eee 

1800 BEEP 

1e19 INPUT "REAPING CK? (Y/N)",Z7$ 

1820 IF Z:$="N° THEN COI0D Padcal 

12030 Pamaxcals | 

1840 PRINT USING "e* | CLEAR SCREEN 

1250 PRINT ° eeexe CAL IT BRAT LON txexx? 

1950 PPINT "APPLY KAXT MLM PRESSURE USING TEE DEAD-WEIGHT TESTER’ 

1970 IKPUT "EXTER THE MAXIMUM FRESSURE IN psig’, Panax 

16d9 DISP “HIT CONTINUE @HEN READY’ 

1890 PASE 

1900 KEROTE 709 

1710 OUTPUT 705; "AC2” 

1920 WAIT 2 

fee OMe) 722.13” 

1940 ENTER 722:Vpamax 

1950 PRINT "Voamax=";Vpanax, "Pamaxr= *sPanax 
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eee Oa oe 


pea @ Dep O.n~O-0 
oP. i‘ 


Oro roroarg-- 


Koa MH CeAR a ELS I) 
eee "Kpa= "Koa 


INPUT "READING CK? (Y/N)",Z7$ 
sl ete THEN GOTO Paraxcal 

Cea) 

HGR OBOG BOB BBG EGO OURO AGE 
PRINT “X4CALTERATION OF Pc, THE SFRJ BMOTGR CHAMBER FRESSURE TRANSGICER** * 
1 GRABER IUOE UBIO BUI EOI EE GO OEE 
Pol=ako! 

PRINT “xx¥% ZERO PRESSURE #xx2" 

PRINT “INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER" 

DISP “HIT CONTINUE WHEN READY" 

PASE 

REMOTE 709 

OUTPUT 709; "ACO" 

WAIT 2 


CUTPUT 722: "TS" 
ENTER 722:Voc0 
PRINT "Voc 0="sVpc0 
KEEP 


INPUT "READING OK? (Y/N)"|Zz$ 

IF 22$="N" THEN GOTO Pcdcal 
Pemaxcal; ! 

PRINT USING "@" 

PRINT " 4xx* CALIBRATION 444%" 

PRINT "APPLY THE MAXIMUM PRESSURE USING DEAD-WEIGHT TESTER" 


Tr ON oe CHP co SO CO MIO ON ee C2 FOR 
Pe ae ne a ne ee a a ne a ae ae) 


FOroPrIrurIdrouPrIyrnorUrorow forgo POraroro fF 


POroarororgo ro POP ee a Rw at st  * 
c 


a 
a 
~) 
= 


INPUT "ENTER THE HAXTHUM PRESSURE IN psig*Pcmax 


DISP “HIT CONTINUE WHEN READY" 
PAUSE 

REMOTE 709 

CUTPUT 7095 "ACO 


WAIT 2 

OUTCIT 7 2eeen hoe 

ENTER 722; Yocmax 

PRINT *Vpcmax=";Vpcmax 
Koc=Pcmax/(V char-Vpc 03 
PRINT "Koc= "<Koc 

HEEP 


INPUT "REGDING GK? (Y/N)",Z7$ 
IF Z2$="N" THEN GOTO Pcnaxcal 


Phoal:! 
BOOGIE UGG OCU UGE OIG BORGO FE 
PRINT "XXCALIBRATIOQN GF Ph, THE SFRJ MOTGR HEAD-END PRESSURE TRANSDUCER x * 


"Pomax="sPCmax 


i 


PEKKA KLE LAK EEK KER ERK LEAK RAK ERS EES EEA EM REAM A RY EEE REY LY 


Pica 


PRINT "#*4xZERO PRESSUREXKXX" 


PRINT "INSURE THAT NO PRESSURE IS APPLIED TQ THE TRANSDUCER * 


BISP “HIT CONTINUE WHEN READY" 
PAUSE 

REMOTE 709 

OUTPUT 709; "ACI" 

WAIT 2 


OUTPUT 722; "TS" 
ENTER 7e2;Vpho 
PRINT "Voh O=";Vph0 
EFEP 


INPUT "READING OK? (Y/N)" 278 
IF Zz¢="N" THEN COTO PhOcal 


Phmaxcal: | 


PRINT USING "@" 
PRINT "#*<¥CALIBRATIONSHXX" 


DISP "APPLY THE MAXIMUM PRESSURE USING DEAD-WEIGHT TESTER" 
THPUT "ENTER THE MAATHUIM PRESSURE IN Psig”,Phmax 


DISP "HIT CONTINUE WHEN READY" 
PAUSE 


REMOTE 709 
OUTPUT 709: "ACI" 
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Sy ™ Pe] S07) S80 Or ile Erm ce Cre Cre 


POert C220 CLI CPO ee Cd a OID 20 Ce Os 


=O aS 


Peo O oo POO OOO OS Mme Oe 


PFOUraPFYUrarYdcroalCYUcorourdgroarYdrorIrgrygargrgara 
~~ 3™) 


co 


ie 


wAIT 2 

Cael pect 1S" 

ENTER 7 (a VORA AX 

PRINT *Ushmax= 3) Vnhads 

Koh=Phman/ (Vonaax- “Vatit) 
PRINT "Koh=";Kch 

BEEP 

THPUT "READING QK? Y/N)" ,Z7$ 
IF Zz$="R* THEN GOTO Phaaxcal 


“Phimax="} Pr max 


Phfcal;! 


VARA RK EK RAEN EK EE EEN ERR AE EM LR EK KEK EEK KEENER EEA EN REESE EES § 


PRINT **CALTERATION OF Phf, THE AIR HEATER FUEL PRESSURE TRANSDUCER ES ” 
LAG 00 000A EES Ea ESI SORE ER EE EAD A 


Phffcal: | 


PRINT *xx4x2E20 CALIBSATIONS#xx" 

PRINT "INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER’ 
RISP "HIT CONTINUE WHEN SEADY" 

PAIISE 

REBATE 709 

CUTPUT 709;"AC3" 

OUTPUT 7224 °T3" 

ENTER 722: UrhF 0 
ORINT "Uch FE": ah Q 

INPUT "READING CK? (Y/H)*,273 
IF 27$="N* THEN GOTO Phf Ocal 


Phfmaxcal: 


PRINT USING "B° 
PRINT "#x*8CAL TBRATIONK #4 X" 
PRINT "APPLY THE MAXIMUM PRESSURE USING DEAD- -WEIGHT TESTER” 
INFUT "ENTER THE MAXITRUM PRESSURE IN psig’, Phfsax 
DIS? "HIT CONT INE WHEN READY" 
AUSE 

REMOTE 709 

GUTPUT 707; "ACS" 
OUTPUT 722: "13° 

ENTER 722 ;Vohfnax 
PRINT “Vohfmax=" pvphfaax "Phfaax=";Phfmax 

5 eee Phfmax/ (Yphtnaa-Wpht 0) 
PRINT "Xphf="sKphf 

BEEP 


INPUT "READING O82 (Y/N)" 27 
IF 2z$="N" THEN GOTO Phfnazcal 


Phocal:! 


PETIT TTTTTTITTTtTTTTTTTTTTTTTTi ier eiirittre tere t retiree etree ttt t ee 
PRINT "*CALIERATION OF Pho, THE AIR HEATER OXYGEN PRESSURE TRANSDUCER Ex " 
EE COREE EGO EH SIDI TE 


Phodcal: ! 


PRINT “#2 £EZERO Cal LERATIGNK ANY” 
PRENG "INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER” 
Eee "HIT CONTINUE WHEN READY" 


REMOTE 709 
OUTPUT 709;"AC4” 

OUTPUT 722: *T3° 
ENTER 722: idphen 
PRINT "VchoQ=":Vphod 

INFUT "READING AK? (Y/N)" 278 
IF 27$="N" THEN GOTO Phodcal 


Phamaxcal: ! 


PRINT USING "@° 

PRINT "xx**CALTBRAT ION‘ 4*%° 

PRINT "APPLY THE MAXIMUM PRESSURE USING DEAD-WEIGHT TESTER® 
THPUT "ENTER THE BAXIMIM PRESSURE IN psig*,Phomax 

DISP "HIT CONTINUE WHEN REAGY" 

PAUSE 

REMOTE 709 

GUTPUT 709: °AC4° 

OUTPUT 799: *T38 
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ENTER 7ee phoma x 

PRINT “Vphomax=";Vphomax, "Phomax="'Phomax 
Koho=Phonmax/(Vphonar- Vnhod) 

PRINT "Xpho=*sKpho 

KEEP 


INPUT "READING QK? (Y/N)",77$ 
IF Z22$="N* THEN GOTO Phomaxcal 


339 Pifcal:! 


5400 
3419 
J4c0 


Pf 


EDR EER HOO USGBC ZOE III 
PRINT "x¥CALTEQATIGN OF Pif, THE SFRJ IGNITION FUE! PRESSURE TRANSDUCER#: * 
EEE FESR SE eee a ae 


cal: 
PRINT igen 47ERO CALIBRATIONS##X" 
PRINT “INSURE THAT NG PRESSURE 1S APPLIED TO THE TRANSDUCER" 
DISP "HIT CONTINUE WHEN READY® 
PAUSE 
REMOTE 709 
OUTPUT 709; "ACS" 
OUTPUT 722°"TZ* 
ENTER 722: ibys 
PRINT "Voit ya TE 
INPUT “READING OK? (Y/H)* 224 
[F 22$="h" THEN COTO Piffcal 


Fi¢Mavedal: 


PRINT USING °@° 

PRINT “*X<*CALIBRAT IONK ex «" 

PRINT “APPLY THE MAXIMUM PRESSURE USING DEAD- WEIGHT TESTER 
IHPUT “ENTER THE MAXIMUM PRESCIIRE IN 9519°,Pifmax 

DISP "HIT CONTINUE WHEN READY® 

Peeoe 

REHOTE 709 

OUTPUT 705; Heo 


ENTER 033; een 

PRINT Volfmax=": Vorfmax, "Pifmax="3Pifsax 
te =Prfmax/(V5 ifaax- Vn if) 

PRINT “Xp f=" ‘Koif 


INPUT "READING OK? (Y/N)" 27 
IF 77$="N" THEN GOTO Pifsmarcal 


Pacal; 


LEER R LAA KEE AK EA EE BREE REE EK ARES ER MEER AKAM EEE KY 


PRINT "¥xCALTRRATION OF Pp, THE SFRJ PURGE GAS PRESSURE TRANSDUCER ¥x * 
DEA GOG HOUR EEE OEE RCE BE IEEE EAE EEE ae 


PoQcal: ! 


POINT "K#*xZE20 CALIBRATIONKECH® 
PRINT “INSURE THAT RO PRESSURE IS APPLIED TD THE TRANSDUCER ® 
DIS? "HIT CONTINUE WHEN READY* 
PALISE 

REMOTE 709 

OUTPUT 709; °AC7" 

QUTPUT 722: "13° 

ENTER 722: i ppd 

PRINT "Vop ee 

INPUT #R anti > (Y/)" 778 
IF Z2$="N* THEN COTO Paocal 


Pemaxcal: 


PRINT ane "ae 

PRINT “#x**CALTBRRAT IONE XxX" 

PRINT "ACPLY THE MAXIMUM PRESSURE USING DEAD-WEIGHT TESTER" 
INPUT "ENTER THE MAXIMUM PRESSURE IN p5ig",Ppmar 

ae a CONTINUE WHEN READY" 


REMOTE 709 

OUTPUT 709; "C7 ° 

QUIPUT 722: "73" 

EXTER 7220;4 ppaax 

PRINT "Yopmax=";Voomax, *Pomax=";Pomax 
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Kop=Ppaax/(Voneax-Vpo0) 

pRINT Kpp="jkep 

INPUT "READING GK? (Y/N)* 278 
IF 22$="N* THEN COTO Poaaxcal 


Peal. | 


IF Ff=0, THEN GOTO Endcal 
BARRE CUO NE OUI UOG HCE OI RAK SI 
PRINT *¥*CALISRATION OF F, THE THRUST STAND LOAD CELL ¥*" 
BER CGUBOUI UU IOUT SECT IE IL EEE EEK 


pues: = 


PRINT "xxxxZERO CALIBRATICNS# 4%" 

PRINT “INSURE THAT THE ‘ZERO’ TARE BETCHT IS ON THE TRAY" 
DISP “HIT CONTINUE WHEN READY' 

PAUSE 

QCMITE 709 

QUTPUT 709; "ACS" 

GUTPYT 722:"T3" 

ENTER 722: 0F0 

PQTNT ME G= "VEO 

INPUT “READING OX? (Y/N)" 724 
IF 72$="N" IHEN GOTO Focal 


Faaxcal: ! 


PRINT USING *@" 

FRINT "#xxxCal [ERAT TON¥E* x" 

PRINT "APPLY MAXTHUM WEIGHT TO THe TRAY" 
INPUT “ENTER THE MAXIMUM WEIGHT IN LBS*,Faax 
pee | CONTINUE WHEN READY" 


REMOTE 709 

GUTPUT 709;"ACS" 

Oli) fee: 1s” 

ENTER 722; Uf na x 

PRINT "Vfaax="sVfaax, "Frax=";Fmax 
Kf=Frax/(Vfmax-VFC) 

PRINT roa kt 


PEEL 
INPUT "READING OK? (Y/N)",2Z7$ 
TF Z2¢="N* THEN COTO Faaxcal 


Endcal: | 


PRINT “THIS ENDS THE CALTERATIONS ° 
DAGGER GG UO OR EE EEE EX TE 


1(3) PRE-RUM INPUTS, FLOW RATE SET-UP 

e303 GO 0 COE OU ECE EE OE ECE 
'A, PRE-RUN INPUTS 

AGE UG USO AUER EEE 


Incutvariables: |! 


INPUT "DO YOU WANT TO INPUT NEW VARIABLES (Y/N)*,Yy$ 

IF Yy$="N* THEN GOTO Nochange 

PRINT “INPUT THE FOLLOWING TEST VARIARLES® 

PRINT "STRING YARTABLES MUST BE ENCLOSED IN QUOTATION HARKS" 
INPUT “THE TEST IDENTIFICATION NUMEER A STRING VARIABLE* Testno$ 
IKPUT "“TODAY’S DATE AS HO.DAY.YEAR,A STRING VARIASLE “Dates 
INPUT “THE BAROMETRIC PRESSURE® Phar 

INPUT “THE FUEL IDENTIFICATION, A STRING VARIABLE *)Fuelids 
INPUT "THE ATR HEATER FUEL TYPE.A STRING VARIABLE * Heaterfuel$ 
INPUT “THE SERJ IGNITION FUEL TYPE,A STRING VARIAGLE ",Ignitionfuel$ 
INPUT “THE PURGE GAS TYPE,A STRING VARIABLE *,Purgegas$ 

INFUT "THE INITIAL FUEL GRAIN WEIGHT (LRM)" Wri 

INPUT “THE INITIAL FUEL GRAIN INTERNAL DIAMETER (IN) ", Dp 

INPUT "THE INITIAL FUEL GRAIN LENGTH CIN)", Lp 

INPUT "THE AIR INLET DIAMETER (IN)* Da 

INPUT “THE MOTOR THROAT DIAMETER (IA)* Dth 

INPUT “THE DESIRED ATR INLET TEMPERATURE (R)* Tid 

INPUT "THE DESIRED IGNITION GELAY TIME (SEC)",Ina 

INPUT “THE DESIRED IGNITION TIME (SEC)*, Tri 

INPUT “THE DESIRED BURN TIME (SEC)*, Tb 

INPUT “THE DESIRED PURGE TIME (SEC)*. Tao 
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AGS) oJNPUT "THE ATR CHOKE DISCHARGE COEFFICIENT" Cdair 

449) INPUT “THE AIR HEATER FUEL CHOKE DISCHARGE CNEFFICTENT" Cdhf 

$700 INPUT "THE ATR HEATER OXYGEN CHOKE DISCHARGE COEFFICIENT Cdho 

A71Q INPUT "THE JGNTTION GAS ChOKE DISCHARGE COEFFICTET® Caif 

A720) THPUT “THE PURGE GAS CHUKE DISCHARGE eee aia 

4730 JMPUT “THE AIR HEATER FUEL FLOW RATE CONSTANT Katt” Kxhf 

4740 IKFUT “THE IGNITION GAS FLOW RATE CONSTANT, Kmif" Kaif 

4750 INPUT "THE PURGE GAS FLOW RATE CONSTANT, Kao" Kap 

4760 INPLT “GAMMA FOR HEATER FUEL Ganmahf* Gamaanf 

4779 INPUT "GAMMA FGR IGNITION FUEL, Gamsaif" Cammaif 

479) INPUT “GAMMA FOR PURCE CAS, Ganmap’, Canaan 

4790 INPUT “GAS CONSTANT FOR HEATER FUEL ,Rhf (ft. ibf/Thm.R)* Rhf 

4909 INPUT “GAS CONSTANT FOR IGNITION FURL Rif (ft. 1bf/Ibm.R yea 

4810 INPUT "GAS CONSTANT FOR PURGE GAS, Rotft.Ibf/tha.R)* Ro 

4820 INPUT "THE AIR CHOXE DIAMETER Dairchoke (10)", Dairchake 

4330 INPUT "THE HEATER FUEL CHOKE BIAMETER Dnt fuchoke(in)*,Dhfchoke 

A840 INPUT "THE IGNITION OXYGEN CHOKE DIAMETER, Dhtoxchekelin)". Dhochoke 

4850 INPUT "THE IGNITION FUEL CHOKE DIAKFTER Dianfuchoke(in)® bifchoke 

4960 INEUT "THE PURGE CHOKE DIAMETER ,Dpursechokelin) *, Docheke 

4370 INPUT “THE DESIRED MASS FLOW RATE OF AIR, Maird(lba/sec)", Maird 

4550 JHPUT "THE DESIRED MASS FLOW RATE OF heater FUEL, MK Fd( lba/sec)".Mafd 
4890 INPUT "THE DESIRED MASS FLOW RATE OF heater OXYGEN, Mhod(lbm/sec)® shod 
A900 INFUT "THE GESTRED MASS FLOW RATE OF IGNITION FUEL, Mifd( lbs/sec)* Mifd 
4910 JNPUT "THE DESIRED MASS FLOW RATE OF PURGE ,Mid(Iba/sec)" Kod 

4920 INFUT “THE INJECTION GAS, Injectgas”,Injectqas$ 

4930 GOBER IGE OCONEE 
494) |x CHECK THE INPUT DATA f 

VINE TELE CTOCLSSOSTCLCOCIST CTL ITT Te LCC TOLStere tees eet et seer itis t estes tet ees: 
4569 Chancel: ! 

4970 PRINT USING °e@* 

4990 PRINT USING "148, 2A SX, 14A,7A,OX, 148,28, cX, 148, DODD. DDD"; *Testna=";Testno 
$,"Date="sDates, "Fuelid$="sFuelid$, Poar=";Fbar 

4990 PRINT USTNG "140,98, 5%, 148, 9A, 5X,144, 98,5, 140, 9A": “Heaterfuel="jHeaterfue 
1$, "Iqniticnfuel="‘Janitionfuel$, "Purge gas=";Purqesass 

7000 PRINT USING "14h DODDOND. DODD, SX, 148, DDDD. DODD, 5X, 144, DDDD, DODD"; *wrfa="+¥ 


tfi “Bp=" Do, *Lo="jLp 

Sd PRIRT USING 14A, DEDD DODD, SX, 148, DODD. DODD"; “Dr="sDi, "Dth=".Dth 

2920 PRINT USING "148, DODD. DDDD 3X, 144 DODD. DODD, 5X, 144, D090. CODD, 2x, 140, DED. D 

DDD": *Tma="5Tma, "Tai="3 Tai, “Tab= A bea | 

S030" PRINT Uszhe "144 ,DBDD. DBLD, 5X, 144, DDOD DESO"; “Dairchoke="sDairchoke, "Dnt fu 

choke="; Dhfchoke 

5049 PRINT USING "14A, DDDD. DODD, SX, 14A, DODD. DDDD"; "Dhtoxchoke="5 Dhochoke, "Dianf 

uchoke=";Difchoke 

S650 PR{T USING "14A,DDDD. DEDD"; “Dpurgechoke=";Pachoke 

s0S0 PRINT USING "140 DODD, DODD, SX, 140 DODD, DODD, 5X, 140, DUDD, DODD" *Cdaar="sCata 

in, Cdh=" ithe, “Cdho="jCdho 

S07G PRINT USING "144, BDDD.DNOD, 5X, 14A, DODD. DDD’: *Cdn=" Cdn, *Cdif=";Cdif 

v030 PRINT USING “144 BODD. DODD, SX, 144, DDDD. DEDD, SX, 148, DDD. DDL"; "G anaahf=" 56 

asmatif , "Gammaif="jGCanmaif 

5090 PRINT USING "14A, DODD. DDDD"; "Ganmap=*;Ganmap 

ae Seen "140 DDDD.DODD, SX, 148, DODD. DODD, 5X, 14A, DDDD.DDDD's *Rhf="sRhf,° 
1f="sRif, Rp="sRo 

U0 PRIN isin SAA PDDD DODD a8 ep DDR Ee 
i Kaif="sKmif, Kap=" Kap 

S120 PRINT USING "148 DDDD. DDDD, 5X, 148, DODD. DDD's *Kaho=":Kmho, Kaair=*sKnair 

YIS0 PRINT USING °14A ,DDDD.DDDD,SX,14A, DDDD.DDOD"; “Maird="sMaird "Tid=": Tid 

S140 PRINT USING °14A, DDOD.DDOD, SX, 14A DDND, DODD. SX, 14A, DDDD. DODD 2X, 14, DIG. 9 

DDD"; "HhPd="-Hhfd, *Mhod=";Mhod, "Hifd=";Aifd, "Mod="54pd 

J1S0 PRINT “INJECTION CAS 15°, Injectaas$ 

S150 GG8O000000ROOU UH OOO BBE GEOG GUI OME GE EE EEO EEOC 

2170 1% VARTABLE CORRECTION 

5180 GBs GG BR OOB BBO EEE EEG REE Lo. 

w190) PRINT USING °4/" 

S20) PRINT "CHECK ALL VALUES" 

ae Serial ‘CONTINUE’ TO PROCEED TO CORRECTION OR NEXT SUBROUTINE" 

ee MVUT "VARIABLE OK? (Y/N)®,Z2$ 

vo49 IF 22$=°N"* THEN COTO Changevariable 
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Scode. |[Pmer$=)” lin, GOTO Nochange 
s55 Changevariable: 
gerd PRINT "UNPUT JARTABLE NoHE= CORRECTED VA! UE" 
secu FRIN] “A SIRING VARIASLE AUST RE EN LOSE) IN QUOTATION MARKS" 
oa bse ‘uTT EXECUTE AND THEN COHTINUE AFTER CORRECTION : 
ude} mA 
2310 GOTO Change 
332d Nochange:! 
oe LHR EKER KA K HEE AERA HE EE LEER EAR ERED EA EER EER EE EEE 
gemee ! oR, FLOW RATE SET-UPS 
SSS LER REX CHEEK EEK TRAE KEE EMA EL EEE ERE LEK EK EERE LEEK EES 
soo0 PRINT USING "8 
oa70 INPUT "DO YOU WANT TO PR a THE AIR FLOW RATE?¢ Y/N)" 225 
Socue iF 22t="N" THEN GOD Pas 
via Piime -se) (HE DESIRED date OF Pa(psig) USING THE HAND LOADER /PRESSURE G 
ge PRINT USING *3/* 
Li ee (THE HaND LOADER SHOULD RE 20 PSIG MORE THAN DESIRED PRESSURE” 
a aset; ! 
430 PRINT USING °3/" 
440 = PRIKT "MANUALLY INITIATE AIR FLOW BY TURNING ‘MAIN AIR’ TO ‘ON’ AND PUSHI 
NG ‘PRI’ OH CONTROL PANEL 
vAS GISP “HIT CONTINUE WHEN READY" 
5450 PAUSE 
Jee "eH 3 
3480 QUTPUT 709; *AC2" 
saroe)6=— OUT PUT 722! -*73" 
gaG$ ENTER 703: Up a 
Soi) OUTPUT 709: *AC9* 
soe CelPul 7ee; "13" 
aa OireR /ec ta 
cos. GUTPUT 709; "ACO" 


559 OUTPUT _722;*T3" 
Ses ENT cp 799. ‘inc 


Lo;,yv 


E57} QUTPLT 709 na" 
S56 QUTPUT 7 Pee oe 
5598 ENTER 72 
5689 OUTEUT sibs: "acs" 
S10 OUTPUT 722:"T3" 
5620 ENTER 72234 
5430 CLEAR 709 
5640 QUIRUT 7 709; "DC10, 1" | DIGITALLY CLOSE CIRCUIT 1 


cic 
cee 


J560 QUIPIT 709; °D010,1° | DIGITALLY OPEN CIRCUIT 1 
vorvd BEEP 


S69¢ PRINT "TURN OFF ’MAIN AIR’* 
5490 DISP "KIT CONTINUE TO PROCEED® 
5700 PAUSE 
S710 = Pa=(Ypa-Voad)akKpatPbhar 
e720 = Pc=(Vpc-Vpc0) xKpc+Pbar 
secur «Velts=Vta 
aia fee Tcalc 1 CONVERSION FROM VOLTAGE TO TEMPERATURE 
ous a= 
5760 Volts=Vti 
ae ae Tcale 1 CONVERSION FROM VOLTAGE TO TEMPERATURE 
S78 1= 
0790 «= Mair=KeaireCdairePat. 7854*(Dairchoke*2) /(Ta’*.5 
S390 PRINT USTHG a" 
Je10 PRINT USING *SA,2X,DDD.DEDDO*; *Heir=" pMaar 
$220 PRINT USING "14K, DOD. DDD*;*Nair DESIRED=" Maird 
sooue Ratlio=naireaaird 
9840 PRINT USTNG ee i ue oY 3A, es SER DD, 1A, 3%, 3A, DDDD.DD, 1A"; "Mair /DESIRE 
D an Ratio, "Ta="3 hist] 
5350 g=P a-Pbar 
at) PRINT USING “4A DODD. DD, 48%; *Pa =1;P05 *Psig" 
S270 «PRINT USING “4a, DDDD.DD. 1A’: ss aie ok 
5220 =F Ko=1 THEN COTG Drheffcalc 1 DETERMINE PRE-RUN OR POST-RUN 
S290 INPUT "IS GIR FLOW RATE ACCURATE ENOUGH? (Y/N)",Xx$ 


Sl 


2900 IF Xx$="¥" THEN GOTO Dtheffcalc 

3710 =Panew= Ure eed eect ~Pbar 

S920 PRINT GRESET Paell= Fane, pei 

ae Yee CONTINUE AFTER RESET GF Pa' 


5949 
9750 GOTO Paset 
5960 Dtheffcalc: 1 CALCI ATE 


FFECTIVE THROAT DIAMETER, CHARACTERIS 
; AND MEASURED 


E 
IIe EXHAUST VELOCITY, THRUST EOTH THECGRET ICAL 
3970 yaat Fay eee 1))/Gammaair)* 


Cotarz(GcxRairelix((Cammaairti)/2 


5999 Cfair=.7394+.5293-(14.7/Pc) 

5990 Dtheff=(((Cstar#dair)/¢, 7854 #Pc Gc) )*.5) 

6000 PRINT "Cotarais(BASED ON Ti)="sCstar, "(ft/sec)’ 
GO10 PRINT °*Cfair= wr ptfair 

6020 PRINT "Dtheff= sDtheff, tin): 

6030 PRINT TCO Pc, i oe 

5040 PRINT "Ti=* Ti, é 

6050 Fa(VF-URO)HRE 

£060 Farr=Cfhair*Pc*. 7854"(Dtheff*2) 

£970 PRINT “Fair( BASED ON Pc)=" jFair,' (LbF)* 

6080 PRINT "Fair (MFASURED)="\F  “(LbF)® 

5990 IF Ko=0 THEN GATO 6176 

S100 INPUT "DO YOU WANT PRINTOUT OF POST RUM CATA?< Y/N)", Yy$ 
6110 oF Yy$="N° THEN GOTO Finish 

612 He ea 


6130 PRINTER 1S 701 

6140 = PRINT USING "6/ 

b1S PRINT * weeeee POST RUN DATA COLD AIR, CHOKED xaxtux ° 
6150 GOTO Pre 


B170 INPUT "DO YOU "WANT PRINTOUT OF PRE-RUN DATA?(Y/H)" Xx$ 
6180 IF Xx$="Y° THEN GOTO Preorint 
6190 GOTO Skipprint 

6200 Preprint: ! 
b210 PRINTER IS 701 

220 ~=soTF Koz] THEN GOTO 6240 

23) PRINT * xxx PRE-RUN DATA, USING COLD ATR ONLY AND CHO 
KED FLOW vane? 
b289 = PRINT °" 

250 PRINT USING "12A,2X,9A "s"TEST DATE IS" Dates 

b2E0 = PRINT "Cotarair(baSeD ON Th)="sCstar, (ft/sec) * 
6270 PRINT “Cfair=" pefair 

6256 PRINT “Dtheff="sDtheff, (in) * 
6290 PRINT Pcos" Pc, *Psia® 

6300 © PRINT “Ti=", Ti, * R® 
b3i0 PRINT "Fairl#ASED ON Pc)=": Fair, Ube) 
320 © PRINT "Fair (HEASURED)="<F, *(LbES" 
6330 PRINT "Mair="\Mair, "ba/sac’ 
6340 PRINTER IS 1 
&3§ IF Ko=1 THEN GOTO Finish 


Skin 
63? Hg hi CONTINUE TO PROCEED TO NEXT FLOW RATE ScT UP" 


6390 Paskip:  ‘! 
6400 PRI 1 USING "@" 
aa THPUT "DO YOU WANT TO PRESET THE HEATER FUEL FLOW RATE? (Y/N)* 278 
6420 [EF 27$=*h" THEA GOTO Piaceic 
6430 GBR OG BUG EIOGE OG OGI GEORGIOS Ei 
6440 PRINT "SET THE DESIRED VALUE OF Phf HSING THE HAND LGADER/PRESSURE Gate" 
HIME STISSELTISCOSICCCOTOOTISCSTICST SEC TLCS SITET e Tele te Tete TST eC Te Tete TT ele ST: 
6450 DISP "HIT CONTINUE WHEN READY’ 
6470 PAUSE 
6480 Fhfset:! 
6490 PRINT USING "@* 
$500 PRINT "MANUALLY TURN OM AIR ’HEATER GAS’ SWITCH" 
S310 DISP " HIT CONTINUE TO FROCEED" 
6020 PAUSE 
6930  QUTPUT 709; "ACS" 
5540 OUTPUT 722 "13° 


Dz 


6770 

siq. 

e780 
790 


6340 


EMER 7eesUsnt 

GUIPUT 709; °ACIO" 

OUTPUT 722. °73" 

ENTER 722<Vthf 

CLEAR 709 

QUIPUT 709; °DC10,0° 

ee MAMUSLLY TURN GFF AIR ‘HEATER GAS’ SWITCH" 


EP 
DISP “HIT CONTINUE TO PROCEED’ 
PAUSE 


OUTPUT 799: "D010,0° 

Phf=(Uohf-Vohf0) aK pht rb ar 

Ugts—v tht 

GOSUB Tcaic 

Thf=T 

Mr f=K nh f¥CdhfxPate, 78544(Dhfchoke*2)/(The*.5) 
PRINT USING ‘8° 

PRINT USING a .DD.DDDDD*; *hnf=* sh 

PRINT USING "124,DD.BGDDD": “Hag tea! "utd 
edt 


] AfRINT USING "19A,D.30D,2X,48,GDDD.Db, 18"; *HnF/ HF DESIRED=*; Ratio, “ThF= 


Po=Phf- Fbar 

oe a, "SA DDDD. DDD, 4A, 3X, 4A, DODD. DD, 1A, 4A, DDDD. DD, 1A"; "PhE= *3Pq;"P 
INPUT ‘Is HEATER FUEL FLOW RATE ACCURATE ENCUGH? (Y/N)*,Xx$ 

IF Xxf="¥" THEN COTO F bffin 

Phinew=(P rPannfd/Hn) Pb 

PRINT USING "134. BDDD. cb. 4A’: *RESET Pht TO" ‘Phinew:*Psig’ 

DISP "HIT CGNTINUE AFTER RESET GF Pat? 

PRUSE 

GOTO Phfset 


beau Phifin:! 


63 gio 
570 


see 


Pale "HIT CONTINUE TO PROCEED TO NEXT FLOW RATE SET UP° 


Phfshis 


aR TNT US rig ee 

TNPUT "DO YOU WANT TO PRESET THE HEATER OXYGEN Fi CW RATE?(Y/N>" 278 

IF 27$="H* THEN GOTO Phaoskip 

LER EEE OL EER KA ORE REAR SIRE EE SOR EEK ELF 
PRENT "SET THE DESIRED VALUE GF Pho USING THE HAND LOADER/PRESSLRE CAE 
BUCO OBO EEE GEE 
ee CGNTINUE WHEN READY" 
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5970 Phoset: ! 


PRINT “RANUALLY TURN CN AIR ‘HEATER GAS’ SWITCH" 
rer "HIT CONTINUE TO PROCEED” 


OUTPUT 709;"AC4° 

OUTPUT 722: 73" 

ENTER 722-Uoh o 

OUTPUT 793: PACT 

QUTIPUT 722% °T3" 

ENTER 722:Utho 

CLEAR 709 

OUTPUT 709: "DC10,0 

PRINT nMAHCiALLY ee OFF AIR “HEATER GAS’ SWITCH" 
DISP "HIT CONTINUE TO PROCEED: 
PAUSE 


QUTPUT 709; "D010, 0° 

Pho=(¥ hs-Johoo)aKke hotPbar 

Volts=Vtho 

GOSUB Tcalc 

0-1 

Mho=KahorCdhosPhoe, 78544{ Ghochoke*2)/({(Tho’. 
PeralelISikG 7° 

PRINT USING “4A ,DD.DDDED"; *Hho="-Hho 


a 


7210 PRINT USING "11A,DD.DODDD*; “Mairinject=";Mho 


722 PRINT USING “128, ‘DD. DDBDD': Mia DESTRED=":Mnod 
7250 Ratio=Nho/Mhod 
7240 PRINT USING "30A, DODD. DDDD,3X,4A,DEDD.DD,1A°;"Hho/Hho DESTRED=".Rat 
10,  yiiOsmy Midaeke 
7250 Pg: =Pho-Pbar 
7280 PRINT USING *SA,DDDD.DD,1X,5A,5X, 4A, BDDD. DD, 1X, 2A"; "Pho=":Pqs"Psig’ 
» aT oe Re 
27) ' ‘INPUT "IS THE HEATER OXYGEN FLOW RATE ENOUGH? (Y/N)2*Xx$ 
729 IF Xx$="¥" THEN COTO Phofin 
7290 Phonew=(PhoxHhod/mMho)-Phar . 
7300 PRINT USING "144, DDDD.DD,1X,4A°: "RESET Phe TO *;Phonews*Psig’ 
7310 DISP "HIT CONTINUE AFTER RESET GF Pho° 
7370 PAUSE 
7230 COTO Phoset 
7340 Phofin 


7300 bs ‘ut CONTINUE TO PROCEED TO NEXT FLOW RATE SET UP” 


ra Phoskio: 

7380 = =6PRIR ustiC "@* 

7390 INPUT "PO YOU WANT TO PRESET THE IGNITION FUEL FLOW RATE?<Y/N)* 27% 

7400 IF Zz¢=°N"* THEN GOTO Pifskip 

7419 PES SS TEOSO SELECTS SSC TOS SOCS ICCC CCL TT CCE ECL ESSEC CS SCS SCL ECe Stee See re: 
7420 «PRINT ° SET THE DESIRED VALUE OF Pif USING THE HAND LOADER /PRESSURE EACLE * 
74339 PRR KA RK EKER EME RSE REL ELE EE ARES OER ER EER RE REE ER EEK 
7449 = DISP "HIT CONTINUE WHEN READY" 

745 PAUSE 

7450 Pifset:! 

7470 PRINT "MANUALLY TURN ON ’ IGN, GAS ’ SWITCH" 

7489 ae HIT CONTINUE WHEN KEADY" 


AUS 
7300 sa 707; "ACS" 
WAIT | 


752 OUTPUT 722: Te 
7539 ENTER 722 
5540 OUTPUT 709." nes 
550 QUIPUT 722: "T3" 
7560 ENTER 722;0tiF 
BEEP 


759 PRINT "MANUALLY TURN OFF “IGN GAS’ SWITCH® 
7554 bsp "HIT CONTINUE 10 PROCEED” 


7610 Pits (pit Vpi fd) *kKoif+Pbar 
7620 = Yolts= 

7650 GOSUB Tcalc 

7640 = Ti f=T 

7650 Aif=KmifeCdifePife, 7854%(Difchoke*2)/(Tif*.5) 

7640 =PRINT USING “e* 

7670 PRINT USING °4A,DD. DDDDD* "Ma f=" 

7580 PRINT USING "15h,DD.DDDDD!: "Mat tes REDE" Mifd 

7690 = Ratio=Hif/Mifd 

ate on USING "17A,D.DD0,3X,4A,DDDD.DUD, 1A", "Mi f/Mif DESIRED="sRatio, *Tif=" 


jaty’ bg: =Pif-Pbar 
7 PRINT USING "4A, DDDD.DD,1X,4A,5X,4A,DDDD.DD, 1X, 1A"; "Pif="sPg:"Pisg’: "Tifs 


aps 
) 

7730 INPUT "IS THE SFRJ IGNITION FUEL FLOW RATE ACCURATE ENOUGH? (Y/N)* Xx$ 
7740 IF Xx$="¥" THEN GOTO Piffin 
7750 = Pifnew= (Pifehifd/iif)- -Phar 

7760 PRINT USING “124 DDDL.DL,1X, 4A; "RESET Pif TO": ‘Pifnaws"Psig' 
7770 = DISP "HIT CONT TE AFTER RESET OF Pit? 

7780 PAUSE 
7790 = GOTO ee 

7800 Piffin 

7810 Disp SHIT CONTINUE TO PROCEED TO NEXT FLOW RATE SET UP" 

7020 PAUSE 
7830 Pifskin: 

7840 PRINT usTNC "@° 


54 


7850 INPUT “DO YOU WANT TO PRESET THE PURGE FLOW RATE? (Y/N) 22 
786) JF Zzt="N° THEN COTO Poskio 
7a7g PEER K EMER ER AXES URE EEK EAA LL REED CER RRMA AA RAK AEE RK KERMA ERR ARE EL 
7830 =9PRINT “SET THE DESTERD VALE OF Pp USING THE HANDLOADER/PRESSURE GAGE” 
7999 VEX AREER ARKH AKER EE REE RE REE FEAR RK REEL EERE EAE ERA ALA ERE REREAD 
7900 8 DISP SHIT CONTINUE WHEN READY' 
7d”) PAUSE 
7520 Poset: | 
7939 CLEAR 709 
7940 OUTPUT 7995 "DC10, 1" 
Mis WAIT 2 
7950 OUTPUT F0y nce 
a8 DUinule vee. 1s 
7988 EER 7eo* .f p 
7290 © QUTPUT 709; *AcI3° 
$09 OUTPUT 722:°T3" 
8016 SHR ce. mat 
ge OUTPUT 769: “botd,1° 
8030 ie Yep Vpp0) ake #Pban 


G40 a ts=¥ 

BOS OSUB Reale 

8660 1021 

8070 : See ae 79044 (Dochoke*2)/(Tp*.5) 
Stey PRINT USING “@" 


8090 PRINT USING *3A,Db.DDDDD";"s i 

9105 PRINT USING "13A,DD.DDDBD*; "Mp “HESIREDS* ‘pd 
8110 Ratio= “Hp /tod 
9120 PRINT USING "16A,D.DD,3X,3A,DDDD.DD, 1A": "Mp/Mp DESIRED =";Ratio, "Tp=": Tp 


=x 
8130 BEEP 
9140 Po=Po-Pb 


8130 PRINT UsiNe "SA, DDED. DD, 1X, 4A, 3%, 4A, DODD. DD, 1X, 1A%; "Pp="sPq;"Psia®, *Tp=" 


6140 INPUT "IS THE PURGE GAS FLOW RATE ACCURATE ENOUGH? <Y/N)*,Xx$ 
&1 70 TF Xx$="Y* THEN GOTN Pofin 
813 Ponew= Po eae Phar 
19 PRINT USING "LEA, DEDD. DD, IX, 4A’; *RESET Pp TQ”; ‘Ponews*PSig* 
8200 © BISP "HIT CONTINUE AFTER RESET OF Pp* 
8210 yews 
Sect COTO Ppset 
e350 Pofin: | 
61240 Poskip: ! 
a25i) Pail Sinise COMPLETES PRE-RUN SET-UP? 
Qos) | RRR KSEE ES EAE ERK KEK RE EMER HERES MERE EEK REAM KARE RARER ER KE 
8270 !' (4) THIS PORTION OF THE PROGRAM RUNS THE TEST A#D COLLECTS THE DATA 
POOR LEK RAH R RE RAS REAR RE REE EER RE EAA EUR EEK SORES RAE BK BER KPERX EEE 
B290 |! 
B3d0 PRINT USING "8° 
Tne DISP "SET TIMEDATE BY PRESSING K19 AND UPDATE, THEN EXECUTE, THEN HIT CON 


8320 = BEEP 
6330 PAUSE 
6540 CLEAR 709 
wy0 = CLEAR 722 
6350 | THE FOLLOWING PROGRAMS THE 3456A DVH 
8370 «= QUTPUT 7225 *LIZOUOFIOSTDPOFLOR3 .LOSTIISTNSOIT4QX1 
6339 PRINT "THE DESIRED RUN TIMES AND DELAYS NCW RE TANPUT" 
S397) INPUT “ENTER Tma,Tmi,Tmb,Tap SEPARATED BY COMMA, THEN HIT CONTIUE", Twa, Tom 


ee =ThatTmitTab+tTap+t ! ORE HORE SECOND FOR TAIL PART READING 
S410 09 T4=TratTai 

6420 = T5=T4+Tab 

€430 8 T6=TStImp 

6449 OPTION BASE 3 


BS nT In(00, 14) | STORACE DEFIHITION 
247) Ast | CONTROL FLAGS 
R430 At=C 


5 


8493 =A 
300 =A 
8510 =A 
Bact 


530 PRINT USING *@" 


8540  DISP *TO INITIATE RUN, PUSH ae =ALR owl Cn = 


8550 Monitor; | WAIT UNTIL INITIAT 
8560 OUTPUT 709; *AC14" 
8570 OUTPUT 722:"T3" 
530 ENTER 722;014 
70 are IF Vi4)=.5 THEN GOTO Startrun ! IF INITIATE RUN, IT WILL GIVE 
8400 GOTO Monitor 
8410 Startrun: ! 
BE 20 TO=TIMEDATE 
0630 GN CYCLE .5 GOSUB Data 
8&4) ib DEL AY Tshut COTO Shutdown 


S650 Timewart: ie ee 0.5 SECOND 


8670 GOTO Timewait 
8680 Data: ! READ ALL DATA EVERY 0.5 SECONDS 
9690 OUTPUT 709; "ACQAF OAL 13° 
8790 FOR I=] T0'14 
8710 OUTPUT 722, ie 
8720 ENTER 722 USING 4K ine) 
9730 OUTPUT 709: "6S" 
8740 NEXT I 
8750 JeJ+1 
8769 TI=TIMFDATE 
877) IF Al=1 THEN GOTO Tmabypass 
878 IF DROUND(T1-10,3))= =Taa THEN 
879 OUTPUT 739; nh) 2 
8330 QUTPUT 709; "OC10, 3 
831 Al=1 
8829 END If 
6220 Trea TO ee 
8249 {=TIMFDATE 
g50 IF A2=1 THEN GOTO ae 35 
8860 IF DROUND(T1-T0,3))=14 THEN 
9970 OUTPUT 709; "D010 ,2° 
8280 OUTPUT 709; "D010. 3" 
8390 d= 
8900 END IF 
6910 T4bypass: ! 
8920 TI=TIMEDATE 
8938 IF A3=1 THEN COTO putes 
8940 IF DROUND(T1-70,3))=15 THEN 
8559 OUTPUT 709; "DCO, 1" 
8950 A3=1 
8979 END IF 
8980 TSbypass: | 
9990 TI=TIMEDATE 
9000 IF A4=1 THEN GOTO Tébypass 
9010 IF DROUND(T1-T8, 3))5 & THEN 
902 OUTPUT 709: "DO10,1 
930 Te 709: “DC1G, t 
9940 A4=] 
9050 END IF 
9050 Tobypass: ! 
9070 COTO 9980 '* THIS NUMBER WILL BE CHANGED WHEN RENUMBER, 
9080 RETURN 
9070 Shutdown: ! 
9160 GPRS yCRE 
9110 Jmax=J-1 
ae PRINT USING *8" 
acon ; PRINT * TEST CCHPLETE, TURN OFF ’MAIN-AIR’, AND TURN OFF ‘HATER 
9140 BEEP 
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97150 ns IU OIE GE 
9160 1% (3) POST-RUN OPERATION 
DAP UHAR NHS NARM RENEE REA Y SALE RAK EKER MAK OAL EK ER ERK AEM EAN REE REEMA ERNE 


ore ace CONTINUE TO PROCEED TO DATA REDUCTION" 
odd QUTPUT 7095; °DG16, 0" 

9219 PRINTER IS 701 

9220 PRINT USING "3/* 

9239 PRINT " #xx%  PRE-RUN INPUT 9 x#eR " 


724g PRINT USING "2/* 

co0 PRINT USING "148,98,5X,14A pA, OX, 14K, 9A, CX, 148, DEDD. DDD") *Testna=" Teste 
$," Date=" Bates, "Fuelids= Fuelids , Phar=* ‘Phar 
9250 PRINT USTHC "148,98 5X, 144, A, UX, 148A, IR, OX, 148, 9A"; "Heaterfuel="\Heeter fue 
i$ "Ignitisnfuel="; lonitionfuels, "Durce a Pung ie 33 
9278 ye USING “14h, DOOD. DODD Dox, 144, DGD. foDD, D4, 144, DEDD. DDOE's “Wrfis"sd ra 


‘Tip=" ‘Lp 
230 seit ASHE” "14a, DDED. DODD, SX, 144, DOND, DDDD*; *Di="; Di, *Dth=*;Dth 
9290 PRINT USING "144 DODD. DDDD, 5X, 142, DDED. DODD, SX, 148, EDD. DDDL,2x, 140, BLD D 
DDD"; °Taa="s Tea, “Tai=" ai Tab=" ‘Tab , iea=" | 1h 
9300 PRINT USIAC "148, ‘DBSD. DDBD SX, 148. DiDD. DO D's "Darrcheke=";Daiechake, batty 
choke="Dhfchske 
9310 PRINT SINC "148 DDDD. DODD, SX, 148, DDDD.DDDD*; "Dhtoxchoke="*Dhochoke, “Dignf 
uchake="sBifchoke 
9320 PRINT USING "148, DODD.DDDD"; ;"Dpurgechoke=";Dochoke 
$330 PRINT USING "14A,DDDD.DDDD, Sx, 144, DODD, pend,sx, 148, DDD. DODD": *Cdaar="s0d3 
ir, Cdh=*;sCdhf, "Cdho=" ‘Cah 
9340 PRINT USING "140, DDBD.DDDD,SX, 144, DDBD. DODD": *Cdp="s Cen "Cdif=":Cdif 
6350 PRINT USING ‘144, DDD. DDGD, 5X, 148 DODD. DDED Sx, 148, DODD. DDDD*: rd jmmahfe" 56 
ammahf, “Gammaif=" Ganaart 
9240 PRINT USING "144, DDDD.DDIDD"; ‘Gamnao=" 
9370 PRIAT a "148 DBDD.DDDD,SX, 144, be. DDD. EX, 148, DDDD. DODD"; *Rhf="sRhF,* 
i = 
7330 ys “istic i p14a,D DODD. DDDD 5X, 148, DODD. DEDD 5X, 14A, DODD. BDDD*s "Kahf=";Kahf 
mifs"sKaif 
9399 PRINT Th 6 "148, SDDD. DDDD, SX, 148, DDDD.DDDD*; *knho="sKmho, "kmain=";Kmaar 
9400 PRINT USING "148, DODD. DERG, SX, 144, Db, DEDD ";tMaird= Maird, "Tid="sTid 
9410 PRINT USING "148, DODD. DODD, Sx, 148, DDD. DGD, SX, 148, DddD. DODB, 2X, 144, DODD .D 
DL"; "hhfd="; Hhod="iMhod, *Hifd=";Hifd, “Mpd=";Hpd 
9429" PaTNT TTECTION GAS IS ' Injectqas$ 
9430 PRINT USING *3/* 
944) PRINT * exe DATA EXTRACTED 4444 : 
G45Q PRINT ** 
9460 PRINT "FLOW RATES IN Lbn/sec, PRESSURE IN Psia, TEMPERATURE IN R° 
947) PRINT ** 
9420 | HEADING PRINT 
9490 PRINT USING 9A 1 68,3 3X, 6A, aX sh Ms . 4x 8 aX, 8, X 6A,4X SA 4X (CAS: *T 
Mee(sec)*," Hair’,* mht”, Mo * it if Myth Tit male bh Pe. phe cies 
9589 FOR ‘Jz 1 70 Jmax 
510 FOR I=1 10 14 
9523 IF I=1 THEN 
9539 = Voc=In(J, 1) 
9049 Po=(Voc-Vocd) #Kpc+Pbar 
955 END i) IF 


eS 


9560 1=2 THEN 

570 vph= Ind, 1) 
9589 — Ph=(Voh—YohO) #Kph4Pbar 
9590 END IF 


9609 IF 1=3 THEN 
9610 Voa=Int(J, 1) 
S2 ‘ ae -(p.a0)#KpatPbar 


E 
9640 IF I=4 AND Ht=1, THEN 
9650 Yeh feln n(J,1) 
650 PhEs(UphE- ght 0) #Kphf+Pbar 


9480 IF I=5 AND Ht=1. THEN 
9490 Voho=In(J, 1) 
9700 Pho=(Ypho-Vphod) «KohotPbar 


Su 


RO ~y er LN 
—— ee — 


oe Nome ests Ta 


END IF 

IF J=6 AND FF=1 THEN 
VF=In(J, 1) 
F2(UP-UEQ) AK 


END Ir 
3 e : AND FF=0 THEN 


EHD IF 

IF I=? THEN 
Voif=IntJ, 1) 
Pif=(Vpif- “psf 0) xpi f 
IF Pif(= ee THEN 


END IF 


Von=In(J 
Po= eam 
IF Po(=(Pht20) THEN 


E IF 

END IF 

IF 1=9 THEN 
Volts=In(J,1) 
CGSUB Teale 
Jisl 

END IF 

IF I=10 THEN 
Valts=In(J, 1) 
GOSUB Icalc 
Ta= 


END IF 

IF I=1) AND Ht=!, THEN 
Volts=In(J,1) 
GOSUB Teale 
Vital 

END IF 

IF f=$2 AND Ht=!. THEN 
Volts=In(J, 1) 
GOSUE Tcalc 
Tho=T 

END IF 

IF {=13 THEN 
Volts=In(J, 1) 
GOSUB Teale 
eUyet 

END IF 

IF 1214 THEN 
Volts=In(J, 1) 
GOSUE Tcalc 


Mair=KeaireCdair¥Pat, 7854%(Dairchoke*2)/(T3*.35) 

Mhf=KehfeCdhfePrnfs, 7854*(Bhfchoke’ cds (THES. 5) 
Mho=KahoxCdhatPhox, 7854%( Dhochoke*2)/(Tho*,5) 

MifsKeifeCdif ere ife, 76544 (Difchoke'*2)/(Tif’.3) 

ite =KnipaCdp¥Ppx, 78544( Dp FO DDD SK. 
PRINT USING "2X,DD.DD, 3Y DD. DDD, 4¢3%,D. DEDDD) , S(3X, ODDD.DD"*; 7, Maar, Raf it 


NT | 
PRINTER IS | 
PRINT USING ‘@" 
INPUT "DO YOU WANT TO MAKE POST-RUN AIR CALCULATION? (Y/N)* Yy$ 
IF ¥ $=" teen Rot 
IF Ysa" THEN GOTO Finish 
GOTO Paset | TO CALCULATE THE EFFECTIVE THROAT DIAMETER 
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Gd Finish: ! 

90 PRINT "DATA QUTPUT IS COMPLETE" 

N0 DISP “SECURE TEST CELL !!1° 

i" a 709 1 RETURN LOCAL MODE 


She, 
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